-- card: 6150 from stack: in
-- bmap block id: 6479
-- flags: 0000
-- background id: 5171
-- name: Start
----- HyperTalk script -----
--
--
--   This stack and it's scripts and graphics are copyright 1989,
--   Prophecy Software Inc.  All rights reserved.
--
--   You may examine this code for your own benifit.
--   If you wish to make changes that enhance the stack please make
--   them to a copy and contact us at:
--
--   Prophecy Software Inc.
--   3650 Silverside Rd. Suite 3
--   Wilmington, DE 19810
--   (302) 994-1502
--
--   We will be happy to consider distributing an updated version with
--   propper credit given to the author.  distribution of copies of this
--   stack with un-authorized alterations constitures copyright
--   violation and fraud.

on player
  global my_choice, last_message, hit_count
  global bs, su, tt, pt, ca, opponent

  put false into ship_ok

  set hilite of button bas of card "enemy board" to false
  set hilite of button car of card "enemy board" to false
  set hilite of button ttr of card "enemy board" to false
  set hilite of button sub of card "enemy board" to false
  set hilite of button ptb of card "enemy board" to false

  put 0 into bs
  put 0 into su
  put 0 into ca
  put 0 into tt
  put 0 into pt
  put empty into opponent

  put random(10) into my_choice
  put "st" && my_choice into last_message
  get send_message("st" && my_choice && "•")
  go to card "enemy board"

  hide button 65
  put "Clearing Field..." into card field 1
  put 0 into hit_count

  repeat with count = 1 to 64
    set icon of button count to 0
    set icon of button count of card "Player Card" to 0
    get field count of card "player board"
    put it into card field count of card "Player Card"
  end repeat
  put "Starting Game..." into card field 1
end player

on Computer
  global opponent
  global my_choice, last_message, hit_count
  global bs, su, tt, pt, ca
  global cbs, cca, ctt, csu, cpt, chit_count, results
  global results, ship_up, where_at_now, direction, pattern, game_active

  set hilite of button bas of card "enemy board" to false
  set hilite of button car of card "enemy board" to false
  set hilite of button ttr of card "enemy board" to false
  set hilite of button sub of card "enemy board" to false
  set hilite of button ptb of card "enemy board" to false

  put 0 into bs
  put 0 into su
  put 0 into ca
  put 0 into tt
  put 0 into pt

  -- initialize computer information

  put 0 into cbs
  put 0 into csu
  put 0 into cca
  put 0 into ctt
  put 0 into cpt
  put 0 into chit_count
  put true into game_active
  put empty into results

  put false into ship_up
  put 1 into direction
  put random(64) into pattern

  go to card "computer card"
  put "" into card field "active"
  send setup to card

  go to card "enemy board"
  hide button 65
  put "Clearing Field..." into card field 1
  put 0 into hit_count

  repeat with count = 1 to 64
    set icon of button count to 0
    set icon of button count of card "Player Card" to 0
    get field count of card "Computer Card"
    put it into card field count of card "Player Card"
  end repeat

  put "CVSC" into opponent
  put "Starting Game..." into card field 1

  put random(10) into my_choice
  put "st" && my_choice into last_message
  get send_message("st" && my_choice && "•")
end computer

on mac
  global opponent
  global my_choice, last_message, hit_count
  global bs, su, tt, pt, ca
  global cbs, cca, ctt, csu, cpt, chit_count, results
  global results, ship_up, where_at_now, direction, pattern, game_active
  global whom

  go to card "enemy board"
  hide button 65
  put "Clearing Field..." into card field 1
  put 0 into hit_count

  repeat with count = 1 to 64
    set icon of button count to 0
    set icon of button count of card "Player Card" to 0
    get field count of card "player board"
    put it into card field count of card "player card"
  end repeat

  put "Starting Game..." into card field 1

  put random(10) into my_choice
  put "st" && my_choice into last_message
  get send_message("st" && my_choice && "•")
end mac




-- part 1 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=118 top=73 right=94 bottom=243
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Play Hit Sounds
----- HyperTalk script -----
on mouseUp
  play shoot
  wait 1 second
  play boom
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=262 top=73 right=94 bottom=387
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Play Miss Sounds
----- HyperTalk script -----
on mouseUp
  play shoot
  wait 1 second
  play splash
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=97 top=222 right=278 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Position Ships
----- HyperTalk script -----
on mouseup
  global whom
  put empty into whom
  visual effect scroll left
  go to card "player board"
end mouseup



-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=97 top=136 right=193 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Start Game
----- HyperTalk script -----
on mouseUp
  global whom

  visual effect barn door open
  put "player" into whom

  go to card "configure"
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=269 top=136 right=193 bottom=411
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Play Computer
----- HyperTalk script -----
--
--
--   This stack and it's scripts and graphics are copyright 1989,
--   Prophecy Software Inc.  All rights reserved.
--
--   You may examine this code for your own benifit.
--   If you wish to make changes that enhance the stack please make
--   them to a copy and contact us at:
--
--   Prophecy Software Inc.
--   3650 Silverside Rd. Suite 3
--   Wilmington, DE 19810
--   (302) 994-1502
--
--   We will be happy to consider distributing an updated version with
--   propper credit given to the author.  distribution of copies of this
--   stack with un-authorized alterations constitures copyright
--   violation and fraud.

on mouseUp
  global opponent
  global my_choice, last_message, hit_count
  global bs, su, tt, pt, ca
  global cbs, cca, ctt, csu, cpt, chit_count, results
  global results, ship_up, where_at_now, direction, pattern, game_active
  global whom

  set hilite of button bas of card "enemy board" to false
  set hilite of button car of card "enemy board" to false
  set hilite of button ttr of card "enemy board" to false
  set hilite of button sub of card "enemy board" to false
  set hilite of button ptb of card "enemy board" to false

  put 0 into bs
  put 0 into su
  put 0 into ca
  put 0 into tt
  put 0 into pt

  -- initialize computer information

  put 0 into cbs
  put 0 into csu
  put 0 into cca
  put 0 into ctt
  put 0 into cpt
  put 0 into chit_count
  put true into game_active
  put empty into results

  put false into ship_up
  put 1 into direction
  put random(64) into pattern
  put "Computer" into opponent
  put "mac" into whom

  go to card "computer card"
  put "" into card field "active"
  send setup to card

  answer "Do you wish to move your ships now?" with "Yes" or "No"

  if it is "yes" then
    go to card "player board"
    exit mouseup
  end if


  send "Mac" to card start

end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=269 top=222 right=279 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global whom

  visual effect barn door open
  put "Computer" into whom

  go to card "configure"
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=232 top=29 right=62 bottom=274
-- title width / last selected line: 0
-- icon id / first selected line: 2507 / 2507
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  visual effect barn door open
  go to next card
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=216 top=302 right=323 bottom=289
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Intro
----- HyperTalk script -----
on mouseUp
  visual effect barn door open
  go to card 2

end mouseUp